Top 10k strings from Karel 85 (1985)(Jan Ruppert)(cz).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 ,STK;W$+" ";
   1 search=24144
   1 nextsl=24142
   1 nextsl,HH-256
   1 mesto=23760
   1 chyba=23799
   1 av=mesto+8
   1 ZAKRESLI PREKAZKY A ZNACKY
   1 ZA=CHYBA+1
   1 W$=W$+"   ":
   1 W$="KONEC":
   1 VLEVO-VBOK
   1 START - ENTER
   1 S(STK)=H-2
   1 S(STK)=H+1
   1 S(STK),H-256
   1 PROGRAM - K A R E L
   1 POI=POI+DE+1
   1 POI=PO+DE+1
   1 POI<search
   1 HH=POI-DE-1
   1 B$=" ZNAMENA
   1 AV=MESTO+8
   1 AV=MEM-256
   1 AV<CHYBA+1
   1 A$(Y,X)="1"
   1 A$(Y,X)="%"
   1 A$(Y,X)=" "
   1 A$(Y,X)<"8"
   1 A$(Y,X)<"1"
   1 ;"VE SVEM MESTE"
   1 ;"VAS VITA"
   1 ;"UZ NEZNAM !"
   1 ;"STOP/BREAK"
   1 ;"ROZKLAD SLOVA:":
   1 ;"ROBOT KAREL"
   1 ;"NOVE SLOVO:"
   1 ;"NELZE ROZLOZIT"
   1 ;"MESTO SLOVNIK ROZKLAD CHYBA ..."';
   1 ;"KONEC JINAK":
   1 ;"KONEC JINAK   ":
   1 ;" S T O P    T A P E "
   1 ;" S A V E : "
   1 ;" ";W;" KRAT    "
   1 ;"   STOP/BREAK"
   1 ;"    C H Y B A   "
   1 --- INIT ---
   1 ,STK;P$(R,3
   1 ,STK;P$(AN,3
   1 ,STK;"KONEC "
   1 * PRO SPECTRUM UPRAVIL:JAN RUPPERT, KLADENSKA 240
   1 )="(7ZAPAD"
   1 )="&8ZNACKA"
   1 )="$7SEVER"
   1 )=" 8VYCHOD"
   1 )=" 5NENI"
   1 ));" ";P$(I,3
   1 "ZNACKA    - X",A$(7
   1 "ZBYTEK VYMAZAT ?    (A/N)"';I$
   1 "ZADEJ ZNAMY PRIKAZ A ENTER"';
   1 "VYMAZAT   - V",A$(8
   1 "POKRACOVAT ?  (A/N)"';I$
   1 "PODMINKA:  (JE/NENI)"';
   1 "NOVE MESTO- N",A$(10
   1 "NAHORU    - """,A$(3
   1 "KTERA PODMINKA ? S,J,V,ZA,ZE,ZN ";
   1 "KOLIKRAT ?  (MAX. 255)"';
   1 "KAREL/"+W$
   1 "KAREL V1.3"
   1 "KAREL + SLOVA -> CISLO a ENTER  KAREL V1.3    -> ENTER   ";
   1 "DOPRAVA   - !",A$(1
   1 "DOLEVA    - #",A$(2
   1 " ZNAMENA"
   1  VERZE 1.3
   1  8VYCHOD    $7SEVER
   1  357 47  KRASNO N./TEPLOU
   1  - Z",A$(6
   1  - $",A$(4
   1  &8ZNACKA